﻿Imports Microsoft.VisualBasic

Public Class DBItemCatSP
    Inherits DBParentStoredProcedureClass

    Public Operation As New TableField("Operation", Data.SqlDbType.NVarChar)
    Public ItemCatID As New TableField("ItemCatID", Data.SqlDbType.Int)
    Public ItemCatDesc As New TableField("ItemCatDesc", Data.SqlDbType.NVarChar)

    Sub New()
        MyBase.StoredProcedureName = "ItemCatSP"
    End Sub

    Public Shadows Function QueryDatabase(ByVal QueryType As SqlQueryType, _
                                 Optional ByVal Operation As String = "", _
                                 Optional ByVal ItemCatID As String = "", _
                                 Optional ByVal ItemCatDesc As String = "") As Object

        MyBase.FieldsArrayList = New ArrayList
        Me.Operation.SetValue(Operation, MyBase.FieldsArrayList)
        Me.ItemCatID.SetValue(ItemCatID, MyBase.FieldsArrayList)
        Me.ItemCatDesc.SetValue(ItemCatDesc, MyBase.FieldsArrayList)

        Return MyBase.QueryDatabase(QueryType)
    End Function

End Class
